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INTRODUCTION 
This specification describes the COBOL Language compiler» based 


on Revision C of the Burroughs COBOL74 Corporate Standards which 
produces COBOL S-Language code for ‘execution on 31390731700 
Systems. | , 


RELATED PUBLICATIONS 


TITLE 7 _ : NUMBER 
CO30L74 Corporate Standard © 1283 0022 
COBOL74 Compiler Logic 7 | 
CI30L74 S-Language 2222 3069 


31390731709 COSOL74 2eference Manual 
Coaptler controt Images | | i355 2959 
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GENERAL DESCRIPTION 


- LANGUAGE 


‘The Language acceptable as innut to this compiler is hased on the 


Yurroughs COKOL74 Corporate Standard. 


INPUT 


The compiler uses one or more source inout files to make a 


complete» updated Cid9tL program. Punched cards» disks» diskpack»s 
or @agnetic tape can ba soecified as source tanguage input media 
for a single input file or for a master file. If two input files 
are used» the comoiler merges them on a sequence number basis. 


Records of input files are 80 bytes in length. Default blocking 
1s used for atl inout files. The format of each &@¥ byte record 
is defined in the COBOLT4 Corporate Standard. 


LIBRARY FILES 


COBOL source text which is cammon to several programs may be 


included in a orogram by use of a COSOL copy Statement. A 


library file is included in the logical program to be compiled 
but not in a new source Language file if one is created. | 


OUTPUT 


NEW SQU°%CE LANGNAGE FILES 


An updated master symbolic output file, acceptable as input to 
the CO30L Compiter>, may 9e created by use of the Control Card 
Immage (CCI) option NEW. | 


SEN eck est 
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OUTPUT LISTINGS 


Listings Provided Xy this compiler include: 


Di agnostic. messages 

Input source language Cmay be inhibited) 
Indication of inserted» replaced» or deleted lines 
Generated obdject code Cupon request) 

Summary information 

Cross reference Listing Cupon re juest) 


- GENERATED CODE 


The object code generated is written to disk. 


LABEL EQUATE INFORMATION 


Internal External : | 
Filename pce rane Function 
CARD | — CARD Source or update input. 
| Default device is card reader. 
SOURCE | SOURCE Source program input. 
Default device is disk. 
NEWS OUREE NEWSIURCE Updated source program output. 
| Default device is disk. 
LINE 7 LINE Printed output listing. 
| | Default device is printer. 
CODE PROGXAN=NAME Object code file. 
ERRORS ERRORS Printed diagnostic Listing. 


! | — oe Default device is printer. 
| | | , 
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DEBUGGING AND DIAGNOSTIC FACILITIES 
Ihe following compile time facilities are available: 


A. Syntax error messages are printed before ine line in 
error prior to the PROCEDURE DIVISION and after. the 
line in error thereafter. A pointer indicates tocation 
of tne possible error. 


Se Warning messages are optionally printed before the line 
in error prior to the PROCEDURE DIVISION and after the 
line in error thereafter. A pointer indicates the 
location of the possible error for some of these 
messages. | 


oP Various infornational messages. are printed. 


one No code is generated if Srna errors are present. 


ALL error messages are specific and are sufficient to determine 


the cause of the error. 
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COMPILER LIMITS | 


The following is a List of att currently recognized conpiler 


limits. 


1697774215 


16 +383 


16,383 


4-022 


128 


«46% 383 


(290975151 


170485575 


48 


160465575 
126 
165383 


4095 


98 


ow 


Source images 


Yatamnames - includes all data-names» one for 
each FOD>» 3D» and CD» and one for each 
“sectton™ ain the Data Division Ci.@. 


WORKING"STORAGE SECTION) 


Procedure“names 


Pseudo data dictionary entries - one per FD». 
SD» or CD» one per O1 Level in the 
WORKING“STORAGEs LINKAGE» or COMMUNICATIGNS 
SECTION» one per group of contiguous 77's in 
the WORKING“STORAGE SECTION» one per (7 entry 
in the LINKAGE SECTION, and one for DEBUG. 


IPC parameters. 
Referenced field length mn digits (note: att 


O01 levels in the FILE SECTION are 
referenced). Nie | i 3 i me | 


Unreferenced field Length in digits. | 


Displacement in digits of a referenced field 
Within an unreferenced field. 


Levels of subscripting.e | 
JCCURS value - maximum for a single OCCURS 
value and for total accumulated OCCURS 


values. 


Code segments. 


Unique PICTURE strings. | 


Terminal paragraphs of a PERFORM range - 
PERFORM A THRU C and PERFOR” B THRU C count 
as one terminal paragraph. © | | 


Alternate keys allowed for Indexed files. 


Index-names in the INDEXED BY clause of a co 
for QUTPUT. | | ee | | 


S71 
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COMPILER CONTROL IMAGES CCCI) 


The CCI C8 in cokuan 7) is used to control certain options which 


are available during the compilation process. 


Any numoer of CCIs may oe wusede With the few exceptions (noted 
separately) options may appear anywhere in the source files and 
Decome active or inactive at that point... 


A vsootean option may ve "SET" ons "RESET™ off» or set to the 
result of a Boolean expression. For exanple using Soolean 


expressions» an ootion status may be set according to that of 


other doolean options and the operations AND» ORs EQVe and NOT 
May be used. a | 


Temoorary B8o0o0lean variables may also be created and used during 


compilation. 


A stack is associated with each Soolean option and user declared 
variable. Whenever a Boolean option or user declared variable is 
SET or RESET or set to an expressions its ofd value is pushed 
Into a stack and may be retrieved for tater use. 


—"CLEAR™ and "POP" are also used to control the value of Booleans. 


~ BURRUUGHS CORPORATION 
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BOOLEAN EXPRESSIONS AND USER DEFINED OPTIONS 


Syntax: 


>- DECLARE - user detined ootion-1 -- <user defined option? => 


>~= option=1 = <OT> option-2 ----- AN SS ae oe a aaa ay 
7 i | i 
I-- FR <NOT> option=3 -->1 
{ | i 
bet ON! Sees eee aS >I 


Semantics: 


1. 


DECLARE altows the definition of a user-defined-options.- 


Tnese option names nay be any name that is not already an 


option. A user-defined-option is doolein and its default 
value is faise Cdisabled). 


Boolean expressions are evaluated from left to right» with - 


all operators having equal precedence. 


The setting of ootion-l is the result of the evaluation of 
tne doolean exoression to the right of the equal sign. 


bec 
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CCI OPTIONS 


The following CCI options have heen selected from those specified 
in the Compiler Control Images Standard. 


SET option-1 
“Sets option-1 to "JN" 


option-1 
Sets ontion=1 to "ON" 


RESET option-1 
Sets oodtion“1 to "OFF" 


POP option-1 | 
sets option-1 to a previously stacked value 


option-1 = option-2 
Sets option-1 to the same value 35 ontion=7 


option-1 = NOT option-2 | 
Sets oeotion-1 to the inverse of the value Nf ontion-2 


CLEAR 
Resets all booteans excent MERGE and> if the NEW option is 
on tt resets it onty if no records nave heen written to the 


new source file. All previously stacked settings are. 
discarded. 
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NORMAL BOOLEAN OPTIONS 


CODE | | 
Lists the object code following each line of source code 
from point of insertion. 


DELETE : | | | 
Causes the compiler to ignore source Language images and 
CCIs from the secondary (CMERGEed) input Cdisk) until 
disabled. Images are ignored for. compilation pun pecs. and 
are not made part of a new outnut SOURCE ue 


DOUBLE 


Causes the outout Listing to be re in oa double-spaced 
format. | 


LIBRDOOLLAR | | 

Allows a CCI which occurs as nart of a LIBRARY file to he 
processed. When RESET,» CCIs within a LIBRARY file are 
ignored. | 


LIST | 

Creates an output listing of the source image input during 
the final phase of compitation with error and warning 
Messages inserted where required. This option is SET on by 
default and must be RESET if the Listing is not wanted. 


LIST! 


Causes the compiler to print a Listing of source images 45s 
soon as they read and to print error nessages as the errors 
are detected. | 


LISTDELETED 


When LIST option is set» causes LISTing of DELETED images. 
LISTDOLLAR i | | - | . 
When LIST option is set» causes LISTing of CCIs. This 


option is set on by default. 


LISTOMITTED | | | : . 3 
When LIST option 18 set» causes LiSfing of OMITTED images. 


LISTP y | 
Causes the compiler to orint a tisting of images from the 
primary CCARD) source file as they are read. © 


MAP | 
Causes the compiler to tnclude retative addresses of 
allocated variables in the program Listing (the CODE option 
includes this too). This option is set on dy default. 


aaa 
oan) 


on4 
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MERGE 


Causes a secondary Cusually disk) file to be opened by the 
compiler and merged with the primary (card) file. Unce SET, 
this option cannot be RESET» POPYed» SET againe or SET to an 
expression. CLEAR does not affect this option. | 


NEW | | 

Creates a NEY output source file with changes» lf anyre 
entered through use of the MERG® option and DELETE options. 
Compiler Control images are not included in the new file 
unless thev are marked with an additional & sign in column 
8. Nnce SET» this option may not be RESET» POP*ted» SET 
ajyains or SET to a boolean expression. CLEAR may reset the 
NEW option but only if no records have yet been written. 


NEWID | , 
Causes the “non-numeric Literal” associated with this option. 
to be inserted in columns 73-30 of the source Language image 
for program LiSTing and inthe new source filer if any. 
Ahen this option is RESET the contents of columns 73-30 of 
the input source fite are left in the corresponding columns 
of the isting and new source. | 4 


NON-NUMERIC LITERAL | 
Causes the compiter to store the esa information for use 


with the NEWID option. The default value for this purpose 
is all olanks. | : : 


OMIT | 

Causes the comptler to ignore source language images = and 
Compiler Controt Images from the secondary CMERGE*d) tnput 
(disk) until disabled. images are ignored for conpilation 
purposes hut they are included tn 4a new output SUUNCE file>, 
if one is being produced. | 


PAGE = ) 
If a LIST is being produced» causes the compiler. to skio to 
the top Of the next page. © This option i5 reset 


automatically as soon as it is used. 


SEQCHECK — | | 
Causes the compiler to check for sequence errors and orint a 
warning message for each sequence error detected. 


SEQUENCE | the | 

Causes the compiler to assign new sequence numbers to the 
source language images accepted for compilation or inclusion 
in a new source file. Sequence numbers begin with the value 
of the sequence base integer associated with this option. 


If the sequence base integer is not specifieciated it begins 


at 000010. Sequence numbers are incremented by the value of 
the sequence increment integer associated With this option. 
If the sequence increment integer is not specified sequence 
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numbers are incremented by 10. 


INTEGER 
Associated with the SEQUENCE options the integer is assigned 
to the sequence base. 


*INTEGER : 
' Assoctated with the “SEQUENCE options the integer is assigned 
to the sequence increment. : 


STATISTICS | | 
Causes the compiler to print the known statistics of 
compilation normally included in a LISTing. - Needed when 


LIST is RESET. 


SUNMARY 


Causes. the compiler to print a summary of the information 
apout the compilation normatty included as part of a 
LiSTing. Needed when LIST is RESET. 


WARNF ATAL | 
Causes the comnpiler to treat Warning messages as syntax 
errors. | | | 

WARNSUPPR | 

Causes the comoiler to not print warning messages. 

XREF | | | 
Causes the compiler to print a cross-reference listing for 
the source language accepted for compilation. Unless 


Otherwise specifieds cross“reference names are associated hy 
‘line number. — 


XSEQ 


Used in conjunction with the XREF options causes 
cross-reference names to ose associated by sequence number. 
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“NISCELANEQUS COMPILER CONTROL OPTIONS 


FEDLEVEL = integer-1 a 
Causes the compiler to test the CO039L source language code 
for compliance with federal standards as described by FIPS 
Publication 21-1. ms ai 


Integer-1 may contain a value from 1 to 5» reoresenting the 
following levels: : 


1. Low Level COBOL 

2. Lowrintermediate Levelt COOL 
30 Hightintermediate level COBOL 
4. High tevel COS8OL 

5. Burroughs extended tevet COBOL ; 
when a Federal Level is chosen». C989OL codes that exceed 
those included in that tevel are identified with warning 
messages. This option is set to 5 by default. 


VOID Cinteger-1] 

Allowed only in primary (Ccard) file images» this option 
causes a secondary file image bearing the same sequence 
number to be ignored for compilation purnoses and excluded 
from the output new source file» if any. If tnteger-1 is 
specified subsequent images are also ignored until a 


secondary (disk) file image is encountered with a. sequence — 


number value greater than integer-1. 


OPTIONS FOR USE B8Y COMPILER DEVELOPMENT PERSONNEL 


DEBUG ERRMESS “ | | 
Causes the conpiler to print all the error messages it is 
capable of producing. | | 


DEBUG TIME 


Causes the compiler to print a summary of the time spent 
during each phase of compilation. 


sais 
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>-- DEBUG ---- SET ----------- 


{ i 
Ve= REESE) =>) 


Semantics: 
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PARSE ------ ----------- # 
4 
DICT -------->1 


DNQUAL ------>] 
L QUAL 2s == <== e 
MOLGE ~------ o 
DATSYN ere 
EXPLODE ----- . 
‘PROSYN ------ si 
CODEGEN eee 
FIXUP painamtntien 


Causes the compiler to activate a monitor function during the 
compilation phase designated. 


io | 
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FILE ATTRIBUTE MODULE DESCRIPTION 


The file attribute module is an extention tno CN30L74 to provide a 
way to defines wnonitor or change attributes of a particuiar file. 
This 18 accomplished through the the use of attribute 
identifiers. There are three classes of attribute identifiers» 
alphanumerice numeric and mnemonic. 


An alphanumeric attribute identifier is equivalent to an 
elementary alphanumeric DISPLAY data item having a size equal to 
the maximum allowed for the specified attribute. Alphanumeric 
attributes are allowed as operands of relational conditions and 
as sending operands of Format 1 8#£=MOVE Statements. ALL 
alphanumeric attributes currently available for the 31899 are: 


FAMILYNAME 
HST NAME 
INTNAME 
MY HOSTNAME 
MY NAME 

SER TALND 
TITLE 
YOJRNAHE 
Y OURUSERCI0E 


A numeric attribute identifier is equivalent to an elementary 
data ttem that represents a signed integer with eight decimal 
digits. Numeric attributes are allowed as operands of relational 
conditions and as sending operands of Format 1 MOVE statements. 
ALL numeric attributes currently available for the 31800 are: 


AREALENGTH 
AREAS 

BLOCK 
BLOCKSIZE 
BUFFERS 
CENSUS. 
CHANGEDSUBFILE 
CREATIONDATE 
CURRENTBLOCK 
FILESECTION 
FRAMESIZE 
LASTRECORD 
LASTSUSFILE 
MAXCENSUS 
MAXRECSIZE 
MAXSUB8FILES 
MINRECSIZE 


a 


aa 
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NEXTRECORD 

RECORD 

SAVEF ACTOR 

USEDATE 

VOLUME INDEX 
Mnemonic attribute identifiers have only mnemonics for values. 
Mnemonic attributes are allowed as operands of relational 
conditions. All mnemonic attributes and their associated 


mnemonic values currently implemented for the 81800 are: 


ATTERR | CTRUE, FALSE) 

BACKUPAIND COISKH >» PACK» TAPE» JONTCARE ) 
BACKUPPERHITTED CDOONTBACKUP,» DONTCARE, MUSTBACKUP) 
BLOCKSTRUCTURE CFIXED» VARTABLE) 


COMPRESSION ~C(TRUEs FALSE) | | 
DENSITY (BPI209,» HYPI5565 3PIB00. 8°11600» 3P16250) 
DEPENDENTSPECS (TRUE, FALSE) | 
DIRECTION | (FARWARD> REVERSE) : 
FILESTATE CAWAITINGHOST,» SLOCKED» CLOSED» CLOSEPENDING,» 


DEACTIVATED» DEACTIVATIONPENDING»s 
OFFERED,» OPENED» SHUTTINGDOWN) 

EXTMODE CEBCDICy» ASCII» BINARY) 
FILEKIND  (OATAs CODEFILEs INTRINSICFILE» CONTROLBECK) 
KIND COISK> : 

ODT» 

PAPERPUNCH», PAPERRE ADE?» 

PORT» 

PRINTER» 

PUNCH» PUNCHB9s PUNCH9b» 

READER» READERSO» READERIG, 


REMOTE» at 
FAPEs TAPECASSETTE» TAPEPE» TAPE9» TAPE7) 

LABEL CESCDICLAJELs>s ASCIILAGEL» OMITTED) 

MYUSE CIN» OUT, 10) | 

NEWFILE CTRUE» FALSE) 

OPEN CTRUE» FALSE) 

OPTIONAL CTRUEs FALSE) 

UTHERUSE CSECUREDs,» IN» QUT, 9) 

PARITY | CQ0D» EVEN) 

SECURITYTYPE CPUSLICs PRIVATE) 

TRANSLATE | CFORCESGFT»NOSOFT) 

TRANSLATING CTRUESFALSE) | 

UPDATEFILE CTRUEs FALSE) 


The value of an attribute identifier for a particular file may be 


defined by a clause in the file definition (FD). 


VALUE OF alphanumeric~attribute-name 15 Literal 
YWALUE OF numericwattribute-name | 1s numeric~literal 


VALUE OF mnemonic-attripdute-name IS mnemonic-vatlue 
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The value of some attributes may also be referenced using the 
phrase 


VALUE NF attrinute-name IS data-name 


“The current list of attributes that may be specified with this 
. Phrase are; 


AREALENGTH 

AREAS 
a BLOCKSIZE 
. | BUFFERS 
a INTNAME 
oy . MAXRECSIZE 
ot ; MINRECSIZE 
SAVEF ACTOR 
: SERTALNO 
: TITLE 
; VOLUMNINDEX 
§ When using a data~name to specify an initial attribute value the 
a data-name must be of the sama type as the attribute. The vatue 
2 of the data-name is then assigned to the attribute immediately 
; prior to an OPEN for that file. | 
iy An attribute may be monitored within the PROCEDURE DIVISION 
: ; through the attribute-identifier phrase. 
4 | {OF} — | 
: ATTRIBUTE attrisute=nane { } file-name (Csubfile-specifier)} 

: {TN} | | 


A subfile specifier is required for some attributes associated 


, with subfiles of a nort file. Otherwise the subfile-specifier 
| has no meaninge  The'subfile-snecifier must be a numeric Literal 


or data-name. An attridsute identifier may be changed through the 
use of the CHANGE statement in the PROCEDURE DIVISION. 


{literal } 

| 7 . oe { } 
CHANGE attribute-ridentifier TN lidentifier } 
| | | { | } 
{mnemonicevalue}l 
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~The following is a description of each of the file attributes. 


AREALENGTH | = 
specifies the number of FRAMESIZE units in an area of a disk 
file. This attribute may be read anytime or changed when 


file is closed. 


AREAS | 
Specifies the maxmimum number of areas that can be allocated 
for a disk file. @his attribute may oe read anytime or 


changed when file is closed. 


ATTERR | . 
Indicates whether the Last file attribute action was in 
error. Mnemonic values are TRUE or FALSE. This attribute 


may be read anytime. 


BACKUPKIND , : 
speciftes the device type to be used for backup. Mnemonic 
values are DISK» PACKs TAPE or DONTCARE. 


BACKUPPERMITTED 


Specifies whether an intermediate file may be assigned. 
Mnemonic values are JONTBACKUP, DONICARE and MUSTSACKUP., 
This attribute may ope read any Me or changed when file 15 
closed. | 


BLOCK 
Indicates the number of the Logical block referenced in the 
Last I[/9 statement. This attribute may be read anytime. 


BLOCKSIZE | 
Specifies the value of the Length of a block in FRAMEST7E 
UNTES. This attribute may be read anytime or changed when 


file is closed. 


BLOCKSTRUCTURE 3 
Specifies tne format of records of a file. Mnemonic values 


are FIXED or VARIA@BLE. This attribute may be read anytime 
or changed when file 1s closed. | 


BUFFERS 

Specifies the number of buffers assigned to a_ file. This 
attribute may be read anytime or changed when file is 
closed. | - 4 | oe | 


CENSUS a - | 
Indicates the number of messages in a subfile of a éePORT 
file. This attribute may be read when subfile is open. 
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CHANGEDSUBFILE 


Indicates the number of a subfitle whose CHANGEEVENT is true. 


Tnis port file attribute may be read when one or more 
subfiles are open. | 


COMPRESSION ; , 

Specifies that data wittl be compressed for transmission via 
asubfile of a port file. Anemonic values are TRY or 
FALSE. This attribute may be read anytime or changed when 
file is closed. | | 


CREATIONDATE 
Indicates the creation date of a disk file in the . form a 
String of five characters» CYYDOO). This attribute may be 


read anytime. 


CURRENT BLOCK | | 
Indicates the size in FRAMESIZE unitse of the  oblock 


‘currently in use. This attribute may De read anytime. 


DENSITY | 

Specifies the recording density of a magnetic tape file. 
Mnemonic values are BPI290» BPI556, SPIAO0, 8P11600 or. 
B8P16259. This attribute may be read anytime or changed when 
file is closed. 


DEPENDENTSPECS | | 
Specifies whether the attributes 38LOCKSTRUCTURE» MINRECSIZE> 


MAXRECSIZE» BLOCKSTIZE and FRAMESIZE of a togical file are to 


be changed to agree with corresponding values of an 
associated nermanent§ file. Mnemontc values are TRYE or 
FALSE. This attribute may be read anytime or changed when 


fiie 31s closed. 


DIRECTION | ne 

Specifies the direction in which records of a file witt be 
accessed. Mnemonic values ar2 FORWARD or REVERSE. This 
attridute may be read anytime or changed when file 1s 
closed. | | 

EXTMODE 


Specifies the character wode_ of records enn a tile. 
Mnemonic values are ESCDIC,e ASCII or BINARY. This attribute 
may ve read anytime or changed when file is closed. 


FAMILYNAME 7 | | 
Specifies the identifiers of a disk where the file will 
reside. The attribute may also read anytime or changed when 
the file 1s closed. 
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FILEKIND 
Specifies the ourpose of a disk file. Mnemonic values are 
DATA, CONTROLODECK, CODEFFILE or INYTRINSICFILE. This 
attribute may be read anytime or changed anytimne. 
FILESECTION | | 
Specifies the reel number of a tape file. This attribute 


may be read anytime or changed when file is closed. 


FILESTATE 

Indicates the current disposition of a subfile of a port 
file. Mnemonic vatues are AWAITINGHOST,», 8LOCKED» CLOSED» 
CLOSEPENDING, DEACTIVATED» DEACTIVATIONPENDI NG, OFFERED, 
OPENED» or SHUTTINGDOWN. This subfile of a port attribute 
may be read when file is opened. : | 


FRAMESIZE 

Specifies the number of bits to he transfered as a unit of 
data. For 31800) systems FRAMESIZEsay defaultsis the same as 
the number of bits required to represent an EsCDIC 
Character» eight. This attrioute may be read anytime or 
changed when file is closed. | | 


HOSTNAME . | 

Soecifies the name of the host system on which the file 
resides. This attribute may be read anytime or changed when 
file is closed. | : 


INTNAME | | 

Specifies the value of the internal file name. This 
attribute may be read anytime or changed when file is 
closed. 


KIND 7 

Specifies tne device to be associated with the logical file. 
Mnemonic values are DISK» PAPEXPUNCH», PAPERREADER>» PORT» 
PRINTER» PUNCH» READER» READERSO>» READERI6> SPU» TAPE>s 
TAPECASSETTE> TAPEP E> TAPE? or TAPE9. This attribute may he 
read anytime or changed when file is closed. | | 


LABEL a | : | ais 
Specifies whetner or not the file has label records. 
Mnemonic values are ESCDICLABEL> ASCIILABEL OR OMITTED. 
This attribute may be read anytime or changed when file is 
closed. | 


LASTRECORD 


Indicates the record numoer of the tast record in the 
physical disk § file. This attrioute aay be read only when 


the file is OPENed. 
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LASTSUBFILE | 
Indicates the subfile number of the Last subfite for which 
an Input or output operation has occurred. This attribute 


may be read only when the port file is OPENed. 


MAXCENSUS 
Indicates the maximum number of messages that may occur in a 
suhnfile of a port file. This attrtoute may he read when 


file is open. 


MAXRECSIZE | | | | 
Specifies tne maximun size of records in FRAMESI7E units. 


This attribute may be read anytime or changed when file is 
closed. | 


MAXSUBFILES | 
Specifies the maximum number of subfiles of a port. file. 
This attribute may be read anytime or changed when file is 
closed. | 


MINRECSIZE 

Specifies the minimum size of records In FRAMESIZE units. 
This attribute may be read anytime or changed when' file is 
closed. | | 


MY HOSTNAME | 4 | | 
Indicates the name of the system from which a port file is 
transmiting. This attribute may be read anytime. 


MY NAME ee ee 
[Indicates the name of a PORT file. This attribute may he 
read aoElre | 3 bg fh | 


 MYUSE 


Specifies whether ‘the: fite wit be jeed for inputs: output » 
or both. Mnemonic values. are IN» OUT or 19. This attribute 
may be read anytiae or ‘changed when file: is closed. 


NEWFILE Cee ie ee <, “2 Ye oo. . 
Specifies whether one file is (a new or permanent” file. | 
Mnemonic values are TRUE or FALSE. = This. qECE TOUS may ‘be 
read etre or changed when file is closed. - se Fe 

| NEXTRECORD - a | | | vee Sy | 
Indicates. the pique Go record. number of the next. epecora: to 


be processed in an I/O statement. This attribute may be 
read anytime. 7 - » i 


OPEN 7 | va - es 
Indicates whether the file is opened or not. Mnemonic 
values are TRUE or FALSE. This attribute may be read 


anytime. 
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OPTIONAL | | 
Specifies whether or not the assignment of a permanent file 
iS optional. “Anemonic values are TRUE or FALSE. This 


attribute may be fread anytime or. changed when file is 
closed. _ 


OTHERUSE | : | 

9pecifies how the file may be used by other programs during 
the time a program has the file opened. Mnemonic values are 
SECURED» IN» OUT and 19. This attribute may be read anytime 


or changed when file is closed. However» the OPEN statement 
will override any changing of this attribute. | 


PARITY . 

Specifies the parity used for TAPE or PAPERTAPE files. 
Mnemonic values are EVEN or ODDO. This attribute may be read 
anytime or changed when fite is closed. | : | 


RECORD 
Indicates the current retative record number of a file. 
This attribute may be read anytime. 


SAVEF ACTOR — 
Specifies the number of days past the creation date that a 
tape file witt expire. This attribute may be read anytime 


or changed when file is closed. 


SECURITYTYPE a | | 
Specifies what kind of security applies to the file. 
Mnemonic values are PRIVATE or PUBLIC. This attribute may 
be read anytime or changed when file is closed. | 


SERTALNOD | | - 

Specifies the serial number of the Labeled tape or base 
member of the disk family to which the logical file is 
assigned. The serial number is a EBCDIC String of six. 


 characterse left justified in a field of blanks. This. 


attribute may be read anytime ofr changed when file is 
closed. | | ca - 
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TITLE 


Specifies the external file name with the form "B/C ON A". 
The "B/C" portion represents the FILENAME which includes a 


multi~file-id and an optional fiterid. The *"A®™ portion 
represents the optional FAMILYNAME or packwid. Valid TITLEs 
may de: | : | | 
~—6@B 
B/C | 
B ON A 
B/C ON A 
This attriout2 may be read anytime or changed when file is 
closed. | | : 
TRANSLATE | | 
Specifies whether software epansisnean will take place using 
tables. Mnemonic values are FORCESOFT or NOSOFT. This 
attribute may be read anytime or changed when file is 
closed. 3 7 
: | ‘TRANSLATING 


| | Indicates when software translation is being performed on 
the records of the files. Mnemonic values are TRUE or FALSE. 
This attribute may be read anytime or changed when file is 


closed. 
| -. tae UPDATEFILE | | 
| | | Specifies whether or not the disk file is used with = an 
| update I/0 access method. Mnemonic values are TRUE or 
FALSE. This attribute may be read anytime or changed when 


file is closed. 


USEDATE = 
Indicates the Julian date of the last use of a disk file. 
This attribute may be read when file 1s open. 


VOLUME INDEX 7 
Specifies the reel number of a tape rae This attribute 
may De read anytime or changed when file is closed. 


YOURNANE 

Specifies the name of a corresponding subfile of a port Pate 
With which this subfile of a port file is to be matched. 
This attribute may be read anytime or changed when file is 
closed. | 


, YOURUSERCODE a | 
4 Specifies the usercode of a corresponding subfile of a port 

file with which this subfile of a port file is to de 
matched. This attribute may be read ane URE! or enenger when 
file is closed. | , 
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FEATURES NOT INCLUDED IN THIS RELEASE 


NUCLEUS MODULE 


a” Cannot use an item declared In the LINKAGE SECTIGN with the 
DISPLAY or ACCEPT statement. 7 


TABLE HANDLING MODULE 


- Everything implemented. 


SEQUENTIAL I/0 MODULE 
. BREAKOUT and RERUN not implemented. 


- Variable Length records not tmnlemented. 


RELATIVE I/0 Module 


ie BREAKOUT and RERUN not implemented. 


INDEXED 170 MODLUE 


- BREAKOUT and RERUN not implemented. 
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SORT“MERGE MODULE 

e BREAKOUT and RERUN not implemented. 
. «SELECT ... SORT WITH DISK ANDO integer-2 TAPES not 
_ implemented. "SORT WITH ODISK"™ or “SART WITH integer-2 
TAPES™ supported but not both. : 


- Indexed and Relative files not allowed as USING files» and 
| Retative files not allowed as GIVING files. 


SEGMENTATION MODULE 


- Everything implemented. 


LIBRARY MODULE 
« Everything implemented. 
- For purposes of matching pseudo-text» a comma is considered 


a separator onty if it 1s tmmediately followed by a blank Ca 
Burroughs extension relaxed this rule). | 


DEBUG MODULE 


- Everything implemented. 


INTER-PROGRAM COMMUNICATIONS MODULE 
e CALL SYSTEM BREAKOUT not inplemented. 


- CALL SYSTEM WFL not imnolemented. 


COMMUNICATIONS MODULE 


- Only one level queue names implemented. Queue names may not 
exceed 10 characters in Length. —_ 


. Partial messages not implemented. 


« EGE and ESI options of SEND not implemented. 


‘COMPUTER SYSTEMS GROUP 
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DATA BASE MODULE 
- OB - ALL not implemented. 


‘te WSING clause of INVOKE and {NVOKE of sets or subsets 
implemented. : 


oe. count“name not Pap caente es 
- population-nama not implemented. 
2  DMSTRUCTURE not ‘wple@enred: 


- FIRST» LAST» and PRIOR not allowed with a key-condition 
: setection- Ex prees tons 


4 GLOBAL DATA not implemented. 


(2 DASTATUSCOMERROTYPE) not imptemented. 


2 DMSTATUSCOMSTRUCTURE) not implemented. 


« COMPUTE not implemented. 
ie ‘DELETE & seuectGonaeneression ianiese. te daraasceeiaae: 
- FIND - KEY OF not imptemented. 
- GENERATE not implemented. 
. OPEN INITIALIZE not implemented. 
- REMOVE dat a~set -name ae danlenaneea:.. 
SET Ae implemented. 


. USE not implemented. 


not 
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- FILE ATTRIBUTES MODULE 


e VWALUE OF subfite-attribute is {data-name/literal} not 
implemented. | | 


COMPILER CONTROL IMAGES 


7 INCLNEN, LISTINCLs» STATISTICS,» and OPTIMIZE not i plemented 
(these are optional features of the CCI Standard). 


TS REM E ME OC W MemNe oy eal MOURA NE ON ATH EMA es warren Die Ose oe er Minera nN Um metimmle yt masc eaetnmd i bry wats pic ytieg tattle ten beter tec erg rete aes pena : fi . : 5 = 
; 
Pz a . 
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NUCLEUS MODULE | 


8 Tf the. source ‘Seeing on an , tasrees is signed» the sign. 


character is nok necro’. 
+ Switch ON STATUS: is any non- zero value. 


- In abbreviated: relation Soadte i cnoe: an acdinwetic expression 
begining with a left parenthesis. may not be the object: of an 
. abbreviation where both the “subject and the relational 
operator are implied. An arithmetic expression may be the 
object if it doesn't begin. with a left. parenthasis: or if the, 
retational eRe aT oes is stated. 


TABLE HANDLING MODULE 


= SEARCH ALL will not result ina binary search for any of the 
following conditions: ss oo | 


1. Sign on key. or argument (because PLUS colitates 
_ lower than minus). 7 , ) 


2. Key Length or scale unequal to argumment length or | 
- scale. This restriction does not cad to shorter 
literals. 
: Display items vs. computational items. 


he Argument is an arithmetic expresstone 


5e Use of program collating sequence clause. 


LIBRARY MODULE 


° In the statement “COPY -Literal-3",  literat-3 must be a 
file-name of the form "3d"%» “B/A"» "8B ON A™» OR “B/C ON A™. 


DEBUG MODULE 


% "SW9" 1s the debugging switche 
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INTER~PROGRAM COMMUNICATIONS MODULE 

| - Program names in the CALL and CANCEL statements must de of 
the form "8%, "B/C*» "3 ON A™, "B/C ON A™. 

COMMUNICATIONS MODULE 


- BEFORE/AFTER ADVANCING option of SEND requires a eT NOL 
handler to interpret the advancing information. 


« If PASSWIRD is defined for an ENABLE statement and an ACS is 
present» it will be passed to tne MCS» otherwise it will be 
apes Note? the PASSWORD aust be ae nae ee 


* % RECEIVE and SEND are not microcoded and are therefore slower 
than READ and WRITE of REMOTE files. | 
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